00100		SUBROUTINE NOTWRT
00200		IMPLICIT INTEGER(A-Q,S-Z)
00300		COMMON/DL/IXRX,M,AA
00400		COMMON/SCM/V(78),ISCR,LCNT,RSTF,LIST(200),REND
00500		DIMENSION SU(250),RACNT(52),RDOT(7),XAC(6)
00600		REAL DIS,PWDS,CENTR,POS,STFF
00700		COMMON /STF/RSTFAC(8),RSTJC
00800		COMMON RJB,JA,CENTR,JB,RJQ(20),JQ(20)
00900		COMMON/PLTR/PLT,RHT,DIS/XRN/RN(4000)/POSI/STFF(8),JJB,POS
01200		COMMON/NW/FILL(7),RNOTE(24)
01300		COMMON /NU/NUMQ(44),RNUMS(327),RACCI(32),NACCI(3)
01400	C   FOR NOTE DRAWING
01500		EQUIVALENCE (JC,JQ(1)),(JD,JQ(2)),(JE,JQ(3)),(RJD,RJQ(2))
01600		1,(RJF,RJQ(4)),(JG,JQ(5)),(JH,JQ(6)),(JI,JQ(7)),(JJ,JQ(8))
01700		1,(JK,JQ(9)),(JF,JQ(4)),(RJE,RJQ(3)),(SU(1),RN(3001))
01800		1,(RJH,RJQ(6)),(RJG,RJQ(5))
01900		DATA RACNT/4.0,1000.005,17.0,0.105, 8.0,1003.0, 7.014, 11.0
02000		1,13. ,1000. ,0.010,14.01,14. ,17. ,1001.018,7. ,13.018,27.,
02100		1 1004., 4.002, 6.004, 8.004,10.002,10., 8.102,6.102,4.
02200		1,32.0,1000.0,14.0,1007.007,7.107, 43.0,1012.01,11.006,9.003
02300		1, 7.001, 5.0, 9.002, 13.006, 15.01, 10.004, 13.009, 52.0,
02400		1 1002.008,3.003, 5.001, 8.0, 10.0, 13.001, 15.003, 16.008/
02500		DATA RDOT/1000.0, 0.103, 1.0, 1.103, 2.0, 2.103,0/
02800		1 , R5/5.0/, R66/66.0/, R72/72.0/,R18/18.0/,RSTM/14.54/
02850		1 ,XAC/9,14,18,28,33,44/
02900	C   ALL DATA NUMS OVER 90 GIVE INVISIBLE VECTORS
03000	CC	RACTX=0
03100	CC	RSTJC=RSTFAC(JC+4)
03200		RST3=3.*RSTJC
03300		RST4=4.*RSTJC
03500	CC	RST13=13.*RSTJC
03600		RST7=7.*RSTJC
03650		RSTX=RSTJC
03675	C  FOR MINIS AT 245
03700	
03800	1	CENTR=POS-R18*RSTJC+AMOD(RJD,100.0)*RST7
03900	C   'CENTR' IS VERTICAL PLACEMENT
03910		IF(JA.EQ.9)GO TO 90
04000		RMINI=RSTJC
04100	C  OR SHOULD THIS ONLY BE IN NOTES, ETC?  15/9/72
04200	
04300		IF(JA.EQ.101)GO TO 110
04400		RJB=JB
04500		RINV=1
04600	551	GO TO (11,20,30,241,50,242,70,80,90,11,30,80),JA
04700	CC	IF(JA.EQ.11)GO TO 30
04800		IF(JA.EQ.30)GO TO 571
04900	C   FOR BEAMS.
05000	90	CALL ITMSUB
05100		RETURN
05200	
05250	20	IF(JE.GT.1)RJD=RJD-2
05260		RA=RJD
05270		RJG=RJF*10.
05280	C  FOR DOTS
05300	202	CALL REST
05400		IF(JE.GT.1)GO TO 200
05500		IF(RJG.EQ.0)RETURN
05600	201	L=14
05700		IF(JE)L=19
05800		JB=JB+L*RSTJC
05900		RJD=8.+RA
06000		JA=6
06100		JE=7
06200	C   IF P6=1 THE REST IS DOTTED
06300		GO TO 1
06400	200	JE=JE-1
06500	C  FOR MULTIPLE TAILS ON 16TH REST, ETC.
06600		RJD=RJD+2.
06650		RJB=RJB+RST4
06700		GO TO 202
06800	80	CALL SLUR
06900	57	RETURN
07000	
07100	C  FOR TREMOLO SLASHES
07200	571	RJB=RJB+1
07310		RX=14.*RSTJC
07400		RJX=CENTR+RST7
07500		RJY=RJX-RX
07600		IF(JE.EQ.10)GO TO 42
07700		CALL EXCH(RJX,RJY)
07900		RJB=RJB-RX+1
08000	42	RX=RJB+26*RSTJC
08100		DO 40 K=1,JF
08200		DO 41 L=0,2
08300		RA=L*RSTJC
08400		CALL LINES(RJB,RJX+RA,3)
08500	41	CALL LINES(RX,RJY+RA,2)
08600		RJX=RJX+RST7
08700	40	RJY=RJY+RST7
08800		RETURN
08900	
09000	C FOR USER-DRAWN LIBRARY OF SYMBOLS
09100	30	CALL CLEFS
09200		RETURN
09300	291	RJB=RJB+8.*RSTJC
09400		IF(RINV)CENTR=CENTR-RST3
09500	C  REMOVE '8' LATER
09600		CENTR=CENTR+2*RSTJC
09700	
09800	29	RJX=RJB
09900		RJY=CENTR+RSTJC
10000	108	CALL RDRAW(1,7.0,RDOT,RSTJC,RJX,RJY,RSTJC)
10100		IF(JA.EQ.1.OR.RJG.GE.20.)GO TO 290
10200		RB=POS+52.*RSTJC
10300		IF(RJY.NE.RB)GO TO 6241
10400	C   WHERE IS RB USED LATER?
10500		RJY=RJY-12*RSTJC
10600		GO TO 108
10700	C  ABOVE FOR DOTS
10710	290	RJG=RJG-10.
10720		IF(RJG.LT.10.)GO TO 1342
10730		RJX=RJX+RSTJC*13.
10740		GO TO 108
10800	
10900	
11000	C  FOR LEDGER LINES
11100	70	JK=JD
11200	C   NOTE #
11300	170	RJW=RJB-9.*RMINI
11400		RJZ=RJB+22.*RMINI
11500	CC	RJZ=RJB+24.*RMINI
11600		IF(JK)GO TO 71
11700		JX=JK
11800		JY=13
11900	C********* 18/9/72
12000		GO TO 711
12100	71	JX=-JK
12200		JY=JK*2+3
12300	711	RX=POS-18*RSTJC+RST7*JY
12400	C********* 18/9/72
12500		IF(JF)RJZ=RJZ+2*RMINI
12600	C126	IF(PLT.EQ.-3)GO TO 1126
12700	C  FOR 2-PASS PLOTTING
12800	C   ******* ABOVE IS NOT USED, 15/9/72
12900	CC	IF(PLT.EQ.-2)PLT=-4
13000	126	CALL LINES(RJW,RX,3)
13100		CALL LINES(RJZ,RX,2)
13200	CC	IF(PLT.EQ.-4)PLT=-2
13300	1126	IF(JX.EQ.1)GO TO 1122
13400		RX=RX+RSTJC*14.
13500		JX=JX-1
13600		GO TO 126
13700	1122	IF(JA.EQ.7)RETURN
13800		JI=-1
13900		GO TO 1121
14000	
14100	11	STEM=JE/10
14200	
14300	C  NOTES****
14400	C	RACTX=ABS(AMOD(RJF,1.0))*10.
14410		RJF=ABS(AMOD(RJF,1.0))*10.
14500	C   RJF WILL HAVE ACCENT CODE # (.7=DOT, ETC.)
14600	1011	RG=19.0
14700		KL=1
14800	CC	IF(PLT.NE.-1.OR.IXRX.NE.0)RG=14.
14900		IF(PLT.NE.-1)RG=14.
15000	C  FOR 2-PASS PLOTTING
15100		IF(IABS(JD).LT.100)GO TO 1221
15200		IF(IABS(JD).LT.200)GO TO 1012
15300		RG=24.0
15400		KL=20
15500	C  FOR DIAMOND NOTES.
15600		GO TO 1013
15700	1012	RMINI=.6*RSTJC
15800	C  FOR RMINI NOTES
15900	1013	JD=MOD(JD,100)
15950		RJD=RJD-100.
15975		IF(RJD.GT.160.)GO TO 1013
15987	C  FOR MINI TAILS AND ACCIS. ETC.
16000	1221	JY=IABS(JF)
16010		IF(JY.LT.10)GO TO 2221
16020	C P6 FOR HOMING TO RIGHT (10) OR LEFT (20) OF STEM(10=UP, 20=DOWN)
16030	C P6<0 = WHITE NOTE
16040		RQ=RSTM
16050		IF(JF)RQ=RQ+1.66
16060	C GETS WIDTH OF NOTE DISPLACEMENT
16070		IF(JY.EQ.20)RQ=-RQ
16080		RJB=RJB+RQ*RMINI
16260	2221	IF((JD.GT.1.AND.JD.LT.13).OR.JI.NE.0)GO TO 1121
16273	C   ARE THERE LEDGER LINES?
16286		JK=(JD+1)/2-6
16300		IF(JK)JK=-((3-JD)/2)
16400		GO TO 170
16500	C  IF JF≠0 NOTE IS FILLED IN
16600	1121	IF(JF.GE.0.AND.KL.EQ.1)GO TO 125
16800		CALL RDRAW(KL,RG,RNOTE,RMINI,RJB,CENTR,RMINI)
16900		GO TO 123
17000	125	IF(PLT)GO TO 1251
17100		CALL LINES(RJB,CENTR,3)
17200	CC	JK=3
17300		RG=4.0
17400		GO TO 1253
17900	1251	CALL NOIR(RMINI)
18100		GO TO 123
18500	
18600	1253	RG=RMINI*RG
18700		RA=RJB+RG
18800	CC	DO 1252 K=1,7,JK
18810		DO 1252 K=1,7,3
18900		RB=FILL(K)*RMINI
19000		CALL LINES(RA,CENTR+RB,2)
19100		CALL LINES(RA,CENTR-RB,2)
19200	1252	RA=RA+RG
19300	C   ABOVE IS NEW NOTES ROUTINE
19400	
19500	123	RJE=RJE-JE
19600	C  RJE=STEPS TO LEFT FOR ACCID. (.1=1 STEP)
19700		IF(STEM.EQ.0)GO TO 1242
19800	128	JG=MOD(JG,10)
19900		RG=(JG-1)*14
20000		IF(RG)RG=0
20100		IF(RJH.GE.999)RJH=0
20200	C   NO EXTEN. OF STEM?
20300		RH=RJH*RST7
20400	C  STEM EXTENSIONS ARE BY NOTE #S
20500		IF(STEM.NE.2)GO TO 1280
20600		RJX=RJB
20700	C  FOR STEM DOWN (=2)
20800		RG=-RG-48.
20900		RH=-RH
21000		L=20
21100		RJY=3.
21110		RJD=RJD-3.7-RJH
21115	C RJD IS USED IN SUBR. TAIL   - RJH IS STEM EXTENSION.
21120		RJW=-2
21200		RA=1.
21300		GO TO 129
21400	C  NEXT IS FOR STEM UP.
21500	1280	RJX=RSTM
21510		RJW=2
21532	C  FOR VERT. SPACING OF MULTIPLE TAILS
21555		RJD=RJD-2+RJH
21558	C  2 ABOVE AND 3.7 BEFORE ARE BECAUSE ORIG. POS. OF TAIL DRWING IS OFF.
21600		IF(JF.NE.0)RJX=16.2
21700	C  FOR HALF NOTES
21800		RJX=RJX*RMINI+RJB
21900		RG=RG+48.
22000		L=10
22100		RJY=-3.
22200		RA=-1.
22300	129	RJZ=CENTR+RH+RG*RMINI
22310		IF(RMINI.NE.RSTJC)RJW=RJW*.6
22400	CC	IF(PLT.EQ.-3)GO TO 227
22500	CC	IF(PLT.EQ.-2)PLT=-4
22600		CALL LINES(RJX,CENTR,3)
22700		CALL LINES(RJX,RJZ,2)
22800	CC	IF(PLT.EQ.-4)PLT=-2
22900	227	JE=JE-L
23000	C   JE HAS ACCID. # NOW
23100		IF(JG.EQ.0)GO TO 1242
23200	C   JUMP IF NO TAILS
23800	127	CALL TAIL(RJX,RA,RMINI)
23900	1028	JG=JG-1
24000		IF(JG.EQ.0)GO TO 327
24100		RJD=RJD+RJW
24200	C  MOVES CENTR UP OR DOWN FOR NEXT TAIL
24300		GO TO 127
24400	327	IF(JJ.EQ.0)GO TO 1242
24500		RJY=RJZ-19*RSTJC
24600		RJZ=RJZ-RST4
24700	CC	IF(RJX.NE.RJB-1)GO TO 1327
24750		IF(RA.LT.0)GO TO 1327
24775	C  NEXT IS FOR STEM DOWN SLASH
24800		RJY=RJZ+23*RSTJC
24900		RJZ=RJZ+RST7
25000	1327	RJX=RJX-RST7
25100		CALL LINES(RJX,RJY,3)
25200		CALL LINES(RJX+17.0*RSTJC,RJZ,2)
25300	C  FOR SLASH ON GRACE NOTE TAIL
25400	1242	IF(RJG.LT.10.)GO TO 1342
25500	C  FOR DOTTED NOTE-- P7>9 
25600		RJX=RJB+(24.+AMOD(RJG,1.0)*59.6)*RMINI
25700		RJY=CENTR+RSTJC
25800		IF(MOD(JD,2).NE.0)RJY=RJY+RST7
25900		GO TO 108
26000	1342	RJAC=RJB
26100	C   TO SAVE POS. OF NOTE FOR ACCENT
26200		RJB=RJB-RJE*59.6*RMINI
26300	C  TO SPACE OUT ACCIDS.
26400		IF(RMINI.NE.RSTJC)RSTJC=.7*RSTJC
26410	C   ↑↑↑↑		  ↑↑↑↑↑ WAS RMINI
26500	C********* 18/9/72
26600	242	IF(JE.GE.0)GO TO 2421
26700		RINV=-RINV
26800		JE=-JE
26900	C  NOW THAT 0 IS NOT USED FOR DOTS THE ABOVE 3 LINES COULD BE CHNGD
27000	C********** LAST # WAS 281?
27100	C b,#,NAT, ACC ∧, ACC >, FERMATA, DOT, REP MEAS., DASH
27150	2421	RH=14
27200		IF(JA.NE.6)GO TO 211
27245		STEM=0
27290	C   FOR MISC. ITEMS
27300	210	IF(IABS(JD).LT.100)GO TO 3241
27400		JD=MOD(JD,100)
27500		RSTJC=.7*RSTJC
27600	3241	JEX=-1
27610	C FOR 2 MARKS AT ONCE.
27900	1241	IF(JE.GE.11)GO TO 28
28000		GO TO (211,211,211,28,28,222,249,60,27,27),JE
28100		RETURN
28200	C  ERROR TRAP (I.E. JE=0)
28300	
28400	241	CALL LINES(RJB,CENTR,3)
28500		GO TO 210
28600	
28700	2422	IF(RJF.EQ.0)RETURN
28710	CC2422	IF(RACTX.EQ.0)RETURN
28800		RJB=RJAC
28810	CC	RJF=RJF+.001
28855		JE=(RJF+.001)*100.
28860	1249	IF(MOD(JE,10).GT.3)GO TO 249
28870		JE=JE/10
28880		IF(JE.GT.30)GO TO 1249
28890	C EXTRACTS ACCENT NUMBERS FROM DECIMALS IN P6.
28900	CC	IF(RJF.LT.4.)RJF=RJF*10.
28910	CC	IF(RACTX.LT.4.)RACTX=RACTX*10.
29010	CC	IF(X.NE.0)JE=JE*10+X
29100	CC249	RX=0
29600	CC	IF(JE.EQ.7)RX=6.7
29700	CC	IF(JE.EQ.12.OR.JE.EQ.13)RX=5
29800	CC	IF(JE.EQ.11)RX=2
29900	CC	RJB=RJB+RX*RSTJC
29950	C  ↑↑↑↑		  ↑↑↑↑↑ WAS RMINI
30000	C   WHAT ABOUT MINI ACCENTS?
30010	249	IF(JE.GT.30)GO TO 28
30100		IF(JE.GT.10)GO TO 246
30200		IF(JA.NE.1)GO TO 250
30210		RH=8
30300		RB=14.
30400		IF((JE.NE.7.AND.JE.NE.9).OR.MOD(JD,2).EQ.0)GO TO 244
30500		IF((STEM.LE.1.AND.JD.LT.5).OR.((STEM.EQ.2.OR.STEM.EQ.0)
30600		1 .AND.JD.GT.9))GO TO 244
30700		RB=21
30800	C   PUTS ACCENT DOWN OR UP 1 SPACE. AVOIDS PUTTING DOT OR DASH ON LINE
31000	244	IF(STEM.EQ.1.OR.(STEM.EQ.0.AND.JD.LT.7))RB=-RB
31010		IF(JE.NE.6)GO TO 245
31100		IF(JD.LT.9.AND.STEM.EQ.2)GO TO 247
31150		IF(JD.GT.4.AND.STEM.EQ.1)GO TO 252
31200	245	CENTR=CENTR+RB*RSTX
31300	250	IF(JE.GT.10.OR.JE.LT.6)GO TO 247
31400		JA=6
31500		IF(JE.NE.7)GO TO 253
31600	C   7=DOT
31605		RXX=RJB
31610		RJB=RJB+6.7*RMINI
31655	C  CENTERS THE DOT
31677		GO TO 29
31700	253	IF(JE.EQ.9)GO TO 271
31800	C   9=DASH
32000	251	IF(RB.LT.0)RINV=-RINV
32100	C   FIX THIS!!!!  FOR BOWINGS, ETC.
32200	222	CALL FERMTA(RINV)
32266		GO TO 5241
32268	252	RX=POS
32270	248	CENTR=RX
32280		GO TO 251
32300	246	IF(STEM.EQ.1)RB=70.
32400		IF(STEM.EQ.2)RB=21.
32500	C  CHANGE R66 AND R72 TO NUMS WHEN RIGHT ONES ARE FOUND.
32600		GO TO 245
32700	247	RX=POS+R72*RSTJC
32710		IF(JE.EQ.6.OR.JE.EQ.26)GO TO 248
32755	C  26 IS NEW NUMB FOR FERMATA. TAKE OUT 6 EVENTUALLY.
32800		IF(JA.EQ.1.AND.JE.GT.10.AND.CENTR.LT.RX)CENTR=RX
32810	CC	JEX=-1
32820	28	IF(JE.LT.30)GO TO 281
32830		JEX=MOD(JE,10)
32840	C  JEX SAVES NEXT MARK.
32845		IF(JEX.LT.4)JEX=0
32850		JE=JE/10
32852		IF(JE.GT.30)RETURN
32853	C  WON'T READ 415 ETC. (CORRECT=154)
32854	C DOES BOTTOM MARK FIRST, THEN TOP.
32855		CALL EXCH(JEX,JE)
32857	C  PUTS UPBOW, DNBOW, ETC. ABOVE STACC., ETC.
32858		IF(JA.EQ.1)GO TO 249
32860		GO TO 1241
32900	281	X=1
33000		IF(JE.NE.4)GO TO 228
33050		X=5
33075		RJB=RJB+.5*RSTJC
33087		GO TO 328
33100	CC	IF(JE.EQ.11)X=9
33200	CC	IF(JE.EQ.12)X=14
33300	CC	IF(JE.EQ.13)X=18
33400	CC	IF(JE.EQ.14)X=28
33500	CC	IF(JE.EQ.15)X=33
33600	CC	IF(JE.EQ.16)X=44
33650	228	IF(JE.GT.10)X=XAC(JE-10)
33700	C   X IS POINTER IN RACNT ARRAY
33800	328	RA=RMINI
33900	C   OR RSTJC?
34000		IF(RINV.LT.0.OR.(STEM.EQ.1.AND.JE.EQ.4))RA=-RA
34100		CALL RDRAW(X+1,RACNT(X),RACNT,RA,RJB,CENTR,RMINI)
34200	C              PTR, WDCNT, ARRAY,Y MULT,HOR ADD,VERT ADD, X,Y,MULT
34300	C  IN ARRAY, 33.012 WOULD BE X=33, Y=12.  101.123 IS X=-1, Y=-23.
34400		GO TO 5241
34405	4241	JJJ=JE
34406		JE=JEX
34412		JEX=-1
34415		IF(JA.NE.1)GO TO 7241
34417		IF(JE.GT.10)GO TO 246
34418		IF(JE.EQ.7.AND.JJJ.NE.9)GO TO 249
34420	7241	RXX=RH*RMINI
34430		IF(STEM.EQ.1)RXX=-RXX
34440		CENTR=CENTR+RXX
34442		IF(JE.EQ.26)JE=6
34446	C  TEMPORARY?? FIX
34450		GO TO 1241
34500	C >=5,  ∧=4
34600	27	RJB=JB
34700	271	CALL LINES(RJB,CENTR,3)
34800	C  DASHES
34900		CALL LINES(RJB+RSTJC*14.,CENTR,2)
34950	5241	IF(JEX.GT.0)GO TO 4241
34960	C JEX IS FOR DOUBLE MARKS.  (WHAT ABOUT DOT POSITION.)
35000		RETURN
35050	6241	RJB=RXX
35062	C  RESET RJB AFTER A DOT.
35075		GO TO 5241
35100	211	IF(JE.EQ.0)GO TO 2422
35200		IF(JE.GT.3)GO TO 222
35300	CC	IF(PLT.EQ.-3)GO TO 2422
35400	C  FOR 2-PASS PLOTTING (-2=THIN LINES, -3=HEAVY LINES)
35500		X=NACCI(JE)
35600	CC	IF(PLT.EQ.-2)PLT=-4
35700		CALL RDRAW(X+1,RACCI(X),RACCI,RMINI,RJB,CENTR,RMINI)
35800	CC	IF(PLT.EQ.-4)PLT=-2
35900		GO TO 2422
36300	
38000	500	RJB=RJB-RST3
38100		JJB=JJB-RSTJC*13.
38200	C   ADJUSTS POS. OF #S
38300		JE=JE-1
38400		GO TO 222
38500	C NUMBERS.  5, POS, STF, NOTE #, NUM, SIZE(DECI'S)
38600	50	RDIS=RJE
38700		JJJ=JF
38800		IF(RDIS.EQ.0)RDIS=1.
38900		PUNCT=0
39000		IF(JJJ.LT.44)GO TO 51
39100		PUNCT=JJJ
39200		IF(JJJ.EQ.44)JJJ=38
39300		IF(JJJ.GE.45)JJJ=36
39400		IF(JF.NE.46)GO TO 51
39500		RXX=4
39600		RJB=RJB-RXX*RSTJC
39700		RX=16
39800		CENTR=CENTR+RX*RSTJC
39900	51	RX=RDIS*RSTJC
40000	451	X=NUMQ(JJJ+1)
40100	C  X=END # OF ITEM
40200	C  X+1=1ST PART OF ITEM
40300	      CALL RDRAW(X+1,RNUMS(X),RNUMS,RX,RJB,CENTR+RST3,RX)
40400		IF(PUNCT.EQ.0)GO TO 151
40500		IF(PUNCT.NE.46)GO TO 351
40600		RJB=RJB+2*RXX*RSTJC
40700	C  FOR "
40800	651	PUNCT=0
40900		GO TO 451
41000	351	RXX=11
41100	C FOR : AND ;
41200		CENTR=CENTR+RXX*RSTJC
41300		JJJ=38
41400		GO TO 651
41600	151	IF(JA.EQ.101)GO TO 1005
41700		RETURN
41800	
41900	110	JC=RJB
42000		IF(JC.NE.99)GO TO 1008
42100		CALL HYDPOG(2)
42200		RETURN
42300	1008	JF=0
42400		JE=0
42500		RSTJC=1.
42600	C  SETS UP SCALE LINES.
42700		RJC=STFF(JC+4)+60 
42800		RJ=RJC+60
42900		CENTR=RJC+74
43000		CALL DPYSET(2,SU,250)
43100		CALL DPYBRT(1)
43200	1001	POS=RJC+64
43300		DO 1002 MX=10,200,10
43400		RA=RHORZ(FLOAT(MX))
43500		RJB=RA-58
43600		IF(MX.GT.10)GO TO 50
43700	1005	IF(RJE.NE.0)GO TO 1007
43800	C  JUMP FOR STAFF NUMBERS
43900		CALL LINES(RA,RJC,3)
44000		CALL LINES(RA,RJ,2)
44100		JF=JF+1
44200	1002	IF(JF.EQ.10)JF=0
44300		CALL LINES(-596.0,RJ,2)
44400		CALL LINES(-596.0,RJC,2)
44500		RJE=1.5
44600	C  NEXT SETS UP STAFF NUMBERS
44700		RJB=-620.
44800		DO 1007 K=-3,4
44900		CENTR=STFF(K+4)+21.
45000		JF=IABS(K)
45100		GO TO 50
45200	1007	CONTINUE
45300		CALL DPYOUT(2)
45400		CALL SETPOG(1)
45500		RETURN
45600	
45700	C  FOR 1 OR 2 BAR REP SIGNS.
45800	60	CALL BREP(RJB,RSTJC)
46000		END